home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / HCAL-X.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-03-24  |  9.2 KB  |  280 lines
  1. 10  'HCAL-X   02 JUN 94 rev. 24 MAR 97
  2. 20  CLS:KEY OFF
  3. 30  COMMON EX$
  4. 40  IF X$=""THEN X$="X"
  5. 50  COLOR ,,7
  6. 60  '
  7. 70  U$=STRING$(80,205)
  8. 80  DIM B$(205),C$(205)
  9. 90  ON ERROR GOTO 220
  10. 100  COLOR 15,1
  11. 110  PRINT " H A M C A L C  Program Menu ";:COLOR 14,4:PRINT " "+X$+" ";
  12. 120  COLOR 15,1
  13. 130  PRINT TAB(57);"by George Murphy VE3ERP ";
  14. 140  COLOR 7,1
  15. 150  PRINT STRING$(80,223);
  16. 160  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3    'set background colour
  17. 170  COLOR 15,1
  18. 180  PRINT
  19. 190  PRINT U$;
  20. 200  N=0:GOTO 240
  21. 210  '
  22. 220  PRINT "Error ";ERR;" in line ";ERL:END
  23. 230  '
  24. 240  IF X$="A"THEN Y=0:   I$="e":J$="b"
  25. 250  IF X$="B"THEN Y=40:  I$="a":J$="c"
  26. 260  IF X$="C"THEN Y=80:  I$="b":J$="d"
  27. 270  IF X$="D"THEN Y=120: I$="c":J$="e"
  28. 280  IF X$="E"THEN Y=160: I$="d":J$="a"
  29. 290  '
  30. 300  FOR N=1 TO 205
  31. 310  READ B$(N),C$(N)
  32. 320  NEXT N
  33. 330  B$(201)=B$(201)+I$
  34. 340  B$(202)=B$(202)+J$
  35. 350  '
  36. 360  FOR Z=1 TO 20
  37. 370  IF Z<10 THEN Z$="0#:"ELSE Z$="##:"
  38. 380  PRINT " ";USING Z$;Z;:PRINT " ";C$(Z+Y);         'left hand column
  39. 390  COLOR 15,1
  40. 400  PRINT TAB(41);
  41. 410  PRINT USING "##:";Z+20;:PRINT " ";C$(Z+Y+20);    'right hand column
  42. 420  IF Z<20 THEN PRINT ""
  43. 430  NEXT Z
  44. 440  '
  45. 450  COLOR 0,7:LOCATE 25,1:PRINT STRING$(80,32);    'menu options
  46. 460  X=16:W=-X+1
  47. 470  FOR Z=1 TO 5
  48. 480  LOCATE 25,W+(X*Z)
  49. 490  COLOR 1:PRINT "CSRLINCSRLIN";
  50. 500  COLOR 0
  51. 510  PRINT USING "###:";40+Z;:PRINT C$(200+Z);
  52. 520  NEXT Z
  53. 530  LOCATE 25,79:COLOR 1:PRINT STRING$(2,"CSRLIN");
  54. 540  LOCATE 3,2
  55. 550  COLOR 14,4
  56. 560  Z$=""
  57. 570  PRINT " TYPE one of the 2-digit numbers listed below - ";
  58. 580  PRINT "DO NOT press <ENTER>:"
  59. 590  I$=INKEY$:IF I$=""THEN 590
  60. 600  Z$=Z$+I$
  61. 610  IF LEN(Z$)<2 THEN 590 ELSE 630
  62. 620  GOTO 590
  63. 630  P=VAL(Z$)
  64. 640  IF P=0 OR P>45 THEN 680
  65. 650  IF P>=41 AND P<=45 THEN P=P+160:GOTO 670
  66. 660  P=P+Y
  67. 670  IF B$(P)=""THEN 680 ELSE COLOR 7,0,0:CLS:CHAIN B$(P)
  68. 680  LOCATE CSRLIN-1:COLOR ,1:PRINT STRING$(80,32);:LOCATE CSRLIN-1
  69. 690  BEEP:PRINT " ";Z$;" is not a valid number...press any key to try again..."
  70. 700  IF INKEY$=""THEN 700
  71. 710  LOCATE CSRLIN-1:COLOR ,1:PRINT STRING$(80,32);:LOCATE CSRLIN-1:GOTO 530
  72. 720  '
  73. 730  DATA 555timer, 555 Timer
  74. 740  DATA accalc,   A.C. Circuit Calculator
  75. 750  DATA antfield, Antenna Field Strength
  76. 760  DATA antscale, Antenna Frequency Scaling
  77. 770  DATA antenna,  Antenna Length/Pruning calculator
  78. 780  DATA antmatch, Antenna Matching Networks
  79. 790  DATA attenpad,"Attenuators: T-Pad and Pi-Pad"
  80. 800  DATA audfilt,  Audio Bandpass Filter - Active
  81. 810  DATA lopass,   Audio Lowpass Filter(Sallen & Key)
  82. 820  DATA audpass,  Audio Filters - Passive
  83. 830  DATA rcfilt,   Audio Filters - RC Active
  84. 840  DATA zounds,   Audio Tone Analyzer
  85. 850  DATA aircore,  B.& W. Air-Core Inductors
  86. 860  DATA bandstop, Band-Reject Filter
  87. 870  DATA bandwdth,"Bandwidths - 2:1 SWR"
  88. 880  DATA battery,  Battery Schedule
  89. 890  DATA bobtail,  Bobtail Curtain Antenna
  90. 900  DATA bridge,   Bridge Circuit Analysis
  91. 910  DATA caltoday, Calendar - Perpetual/Universal
  92. 920  DATA captance, Capacitor Design Calculator
  93. 930  DATA custcap,  Capacitors - Custom Value
  94. 940  DATA precicap, Capacitors - Precision
  95. 950  DATA capacval, Capacitors - Standard Values
  96. 960  DATA capytel,  Capacitors - Telescoping Variable
  97. 970  DATA captrim,  Capacitors - Trimmer
  98. 980  DATA hatshape, Capacity Hat Geometric Shapes
  99. 990  DATA capyhat,  Capacity Hats for Vertical Antennas
  100. 1000  DATA ccdanten, CCD Antennas
  101. 1010  DATA centfreq, Centre Frequency & Wavelength
  102. 1020  DATA propcirc, Circle - properties of
  103. 1030  DATA circfeed, Circular Waveguide Dish Feeds
  104. 1040  DATA coaxchar, Coaxial Cable Characteristics
  105. 1050  DATA coaxtrap, Coaxial Cable Traps
  106. 1060  DATA cw,       Code Trainer
  107. 1070  DATA coildsgn, Coil Designer
  108. 1080  DATA coilequa, Coil Equation Calculator
  109. 1090  DATA coiltap,  Coil Tap Calculator
  110. 1100  DATA conjumat, Conjugate Match Calculator
  111. 1110  DATA copwire,  Copper Wire Programs
  112. 1120  DATA crysfilt, Crystal Ladder Filter
  113. 1130  DATA decibel,  Decibel Calculator
  114. 1140  DATA decifrac, Decimal/Fraction Converter
  115. 1150  DATA discone,  Discone Multiband Antenna
  116. 1160  DATA equiv,    Equivalent Values
  117. 1170  DATA fatdipol, Fat Dipole (broadband)
  118. 1180  DATA buttfilt, Filters - Butterworth HF
  119. 1190  DATA filstrip, Filters - Stripline Bandpass
  120. 1200  DATA foldipol, Folded Dipole - 300- Twin-Lead
  121. 1210  DATA zostepup, Folded Dipole - Zo Step-Up Ratios
  122. 1220  DATA formulae, Formula Library
  123. 1230  DATA g5rv,     G5RV Multi-Band Dipole Antenna
  124. 1240  DATA gammatch, Gamma Match
  125. 1250  DATA pathfind, Great Circle Paths & Distances
  126. 1260  DATA gridsq,   Grid Square Locator (Maidenhead)
  127. 1270  DATA guywires, Guy Wires for Antenna Towers/Masts
  128. 1280  DATA hairpin,  Hairpin Beta-Match for Yagis
  129. 1290  DATA hambands, Ham Band Edge & Centre Frequencies
  130. 1300  DATA hamstair, Ham Shack Stairs
  131. 1310  DATA harmonic, Harmonic Frequencies
  132. 1320  DATA helreson, Helical Resonators (shielded)
  133. 1330  DATA helix,    Helical Winding
  134. 1340  DATA impednet, Impedance Matching Networks
  135. 1350  DATA impares,  Impedance - Parallel Resonant Cct.
  136. 1360  DATA impedcct, Impedance - Reactance/Resist. Cct.
  137. 1370  DATA inducalc, Inductance Calculator
  138. 1380  DATA induhose, Inductors - Dryer Vent Hose
  139. 1390  DATA invee,    Inverted Vee Antenna
  140. 1400  DATA jcalc,    J Calculator (Complex Impedances)
  141. 1410  DATA kfactor,  K-Factor & Antenna Length (NEC-2)
  142. 1420  DATA latlong,  Latitude/Longitude Data Base
  143. 1430  DATA led,      LED Series Resistor
  144. 1440  DATA radiolos, Line-of-Sight Radio Wave
  145. 1450  DATA lm317,    LM317 Voltage Regulator
  146. 1460  DATA localrpt, Local Repeaters
  147. 1470  DATA logyag,   LOG-YAG Log-Periodic Yagi Antenna
  148. 1480  DATA loopant,  Loop Antenna Coil Inductance
  149. 1490  DATA loopsky,  Loop Skywire Dimensions
  150. 1500  DATA l-pad,    L-Pad Calculator
  151. 1510  DATA matchnet, Matching Networks for Transistors
  152. 1520  DATA maxuf,    Maximum Usable Frequencies (MUF)
  153. 1530  DATA metshowr, Meteor Shower Predictor
  154. 1540  DATA meters,   Meters (Direct Current)
  155. 1550  DATA metrics,  Metric Conversions
  156. 1560  DATA miniloop, MINILOOP Miniature Loop Antenna
  157. 1570  DATA miniquad, MINIQUAD Coil Shortened Antenna
  158. 1580  DATA mobilmat, Mobile Antenna Matching
  159. 1590  DATA mowhip,   Mobile/Maritime Whip Antennas
  160. 1600  DATA moontrac, Moon Tracker
  161. 1610  DATA nicad,    NiCad Battery Discharger
  162. 1620  DATA nmbrsize, Numbered Drills/Screws/Gauges
  163. 1630  DATA numderiv, Numbers and Functions
  164. 1640  DATA ohmslaw,  Ohm's Law Calculator
  165. 1650  DATA opamp,    OP AMP Operational Amplifiers
  166. 1660  DATA dishant,  Parabolic Dish Design
  167. 1670  DATA pimatch,  Pi-Network Impedance Matching
  168. 1680  DATA pipesize, Pipe Sizes - ANSI Standard
  169. 1690  DATA potent,   Potentiometer - Custom Value
  170. 1700  DATA pwrcct,   Power Supply Design
  171. 1710  DATA primenos, Prime Number Calculator
  172. 1720  DATA qreson,   Q Calculator - Resonant Circuits
  173. 1730  DATA quad,     Quad Antenna Dimensions
  174. 1740  DATA quadrat,  Quadratic Equation Calculator
  175. 1750  DATA radangle, Radiation Angle - Antenna
  176. 1760  DATA rcconst,  R/C Time Constant
  177. 1770  DATA resistiv, Resistivity of Metals
  178. 1780  DATA dsgnmenu, Resistor/Inductor/Capacitor Ccts.
  179. 1790  DATA colcode,  Resistors - Colour Code
  180. 1800  DATA resicop,  Resistors - Copper Wire Wound
  181. 1810  DATA custohm,  Resistors - Custom Value
  182. 1820  DATA precires, Resistors - Precision
  183. 1830  DATA resisval, Resistors - Standard Values
  184. 1840  DATA smeter,   S-Meter Readings vs. Power
  185. 1850  DATA wiresag,  Sag in Horizontal Wire Antennas
  186. 1860  DATA satorbit, Satellite Orbit Parameters
  187. 1870  DATA seripara, Series & Parallel Components
  188. 1880  DATA serisect, Series-Section Transformer
  189. 1890  DATA centload, Short Centre-Loaded Dipole
  190. 1900  DATA cylload,  Short Cylinder-Loaded Dipole
  191. 1910  DATA shortant, Short Off-Centre Loaded Dipole
  192. 1920  DATA shortdip, Short Multiband Dipole Array
  193. 1930  DATA snglwire, Single Wire Antenna Systems
  194. 1940  DATA sloper,   Sloper Antenna Dimensions
  195. 1950  DATA smithcht, Smith Chart Calculations
  196. 1960  DATA speedtd,  Speed/Time/Distance Calculator
  197. 1970  DATA stubant,  Stub Match for Antennas
  198. 1980  DATA coaxstub, Stubs - Coaxial Transmission Line
  199. 1990  DATA transtub, Stubs - Open Wire Transmiss'n Line
  200. 2000  DATA riseset,  Sunrise/Sunset Calculator
  201. 2010  DATA swr,      S.W.R. Calculator
  202. 2020  DATA tmatch,   T Match - Dipole to 600 - Line
  203. 2030  DATA tankcct,  Tank Circuit - Power Amplifier
  204. 2040  DATA teletube, Telescoping Aluminum Tubing
  205. 2050  DATA timezone, Time Zones (UTC)
  206. 2060  DATA tinycoil, Tiny Coils wound on Nylon screws
  207. 2070  DATA torotrap, Toroid Antenna Traps
  208. 2080  DATA toroid,   Toroid Inductors
  209. 2090  DATA xfmrnaro, Transformer - Narrow Band
  210. 2100  DATA xfmr,     Transformer Ratios
  211. 2110  DATA winding,  Transformer Winding Calculator
  212. 2120  DATA trancct,  Transistor Circuit Design
  213. 2130  DATA transmat, Transmatch Design (ZL1LE)
  214. 2140  DATA elecleng, Transmission Line Length
  215. 2150  DATA lineloss, Transmission Line Losses
  216. 2160  DATA tranline, Transmission Line Performance
  217. 2170  DATA openwire, Transmission Lines - Open Wire
  218. 2180  DATA trapdsgn, Trap Dipole - 3 Band Single Trap
  219. 2190  DATA trapdip,  Trap Dipole - Dual Band
  220. 2200  DATA solutri,  Triangles - solution of
  221. 2210  DATA trunorth, True North via the Sun
  222. 2220  DATA tunecct,  Tuned Circuit Design - L/C network
  223. 2230  DATA tvchan,   TV Channels ( North America )
  224. 2240  DATA helvert,  Vertical Antenna - Helically Wound
  225. 2250  DATA vfofreq,  VFO Frequency Calculator
  226. 2260  DATA voltdiv,  Voltage Divider
  227. 2270  DATA wavetrap, Wave Trap Filters
  228. 2280  DATA wiremesh, Wire Mesh Screens
  229. 2290  DATA wirecond, Wires in Conduit
  230. 2300  DATA xmtrzmat, Xmtr. Transistor Stage Coupling
  231. 2310  DATA yagi3el,  YAGI 3-Element Beam Design
  232. 2320  DATA yagispac, YAGI Element Spacing - NBS Standard
  233. 2330  DATA YAGTAPER, YAGI Tapered Elements
  234. 2340  DATA yagilong, YAGI multi-element VHF/UHF Antenna
  235. 2350  DATA zener,    Zener Diode Voltage Regulator
  236. 2360  DATA zeppdbl,  Zepp (Double Extended) Antenna
  237. 2370  DATA "",       "-"
  238. 2380  DATA "",       "-"
  239. 2390  DATA "",       "-"
  240. 2400  DATA "",       "-"
  241. 2410  DATA "",       "-"
  242. 2420  DATA "",       "-"
  243. 2430  DATA "",       "-"
  244. 2440  DATA "",       "-"
  245. 2450  DATA "",       "-"
  246. 2460  DATA "",       "-"
  247. 2470  DATA "",       "-"
  248. 2480  DATA "",       "-"
  249. 2490  DATA "",       "-"
  250. 2500  DATA "",       "-"
  251. 2510  DATA "",       "-"
  252. 2520  DATA "",       "-"
  253. 2530  DATA "",       "-"
  254. 2540  DATA "",       "-"
  255. 2550  DATA "",       "-"
  256. 2560  DATA "",       "-"
  257. 2570  DATA "",       "-"
  258. 2580  DATA "",       "-"
  259. 2590  DATA "",       "-"
  260. 2600  DATA "",       "-"
  261. 2610  DATA "",       "-"
  262. 2620  DATA "",       "-"
  263. 2630  DATA "",       "-"
  264. 2640  DATA "",       "-"
  265. 2650  DATA "",       "-"
  266. 2660  DATA "",       "-"
  267. 2670  DATA "",       "-"
  268. 2680  DATA "",       "-"
  269. 2690  DATA "",       "-"
  270. 2700  DATA "",       "-"
  271. 2710  DATA "",       "-"
  272. 2720  DATA "",       "-"
  273. 2730  '
  274. 2740  DATA \bas\menu\hcal-,DEFSNGSOUNDSOUND Menu
  275. 2750  DATA \bas\menu\hcal-,Menu SOUNDSOUNDDEFDBL
  276. 2760  DATA \bas\menu\hcal,Main Menu
  277. 2770  DATA hamdex,Index
  278. 2780  DATA zexit,EXIT
  279. 2790  END
  280.